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INTRODUZIONE 


Questo quaderno si rivolge principalmente ai Tecnici delle officine 
di prefabbricazione di componenti di caldareria e piping. Scopo del 
lavoro è fornire a costoro uno strumento che, attraverso l'uso del 
computer e con pochi dati in input, esegua immediatamente la 
tracciatura degli sviluppi in piano di guelle superfici 3D (e loro 
intersezioni) che maggiormente ricorrono nella pratica costruttiva 
dei componenti per caldareria e pipmg. Alle aziende che 
adoperano, per il taglio delle lamiere, impianti con pantografo a 
controllo numerico, si segnala che i programmi contenuti nel 
guaderno danno outputs grafici che sono subito utilizzabili per il 
“nesting” e la programmazione del taglio dei fogli di lamiera. 


Nei 25 casi pubblicati in guesto guaderno, gli oggetti sono 
trattati in forma parametrica. I parametri sono costituiti da un 
insieme di dati il cui numero è guello strettamente necessario per 
definire la geometria dell'oggetto in modo univoco. Al variare dei 
parametri (nel loro insieme di definizione) si ottengono le geometrie 
di tutti i possibili (infiniti) oggetti reali del caso considerato. 

In una trattazione teorica, le superfici di intersezione 
considerate nei vari casi avrebbero avuto spessore = zero. Nella 
pratica, essendo i componenti reali ricavati da lamiera, si deve 
tenere conto dello spessore di guesta. All "occorrenza si 
introduce perciò il parametro “RN”. La scelta delle superfici di 
intersezione è infatti legata al tipo di giunzione saldata adottato 
per l’unione dei componenti. Non sempre le superfici scelte 

coincidono con guelle cosiddette “neutre”, guelle cioè che non 
subiscono alcuna deformazione, a causa dello stiramento o 
compressione delle fibre, in seguito alla calandratura delle lamiere. 
“RN” è guindi il “raggio neutro” da usare per il calcolo dello 
sviluppo della virola da calandrare. Per piccoli spessori e grandi 
raggi di curvatura, il raggio neutro è ben approssimato dal 
raggio medio della virola; in generale, RN è una funzione del 
raggio, dello spessore e del materiale della lamiera e si trova su 
tabelle nelle pubblicazioni 
specializzate. 
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Nella sezione "Formule" di ciascun articolo, sono riportate le 
modalità di costruzione grafica e le espressioni analitiche che se ne 
traggono e che sono servite per la stesura dei programmi 
AutoLISP. Una delle migliori funzioni di AutoCAD è la possibilità di 
personalizzare software attraverso un linguaggio di 
programmazione. Per la creazione dei programmi contenuti in 
guesto guaderno si è utilizzato AutoLISP, che è il più semplice tra i 
linguaggi che comunicano con AutoCAD. I programmi AutoLISP 
sono stati scritti nell'editor di testi della versione DOS, che è 
accessibile direttamente dall'interno di AutoCAD digitando "EDIT". 
Ciascun programma, salvato in un file con estensione .LSP, può 
essere utilizzato in gualsiasi momento come un comando AutoCAD, 
caricandolo nell'editor grafico ed inserendone il nome al prompt di 
comando. Per caricare il programma (con la versione 14 di 
AutoCAD) si usa l'opzione "Load Application" che si trova nel menu 
"Tools". Prima di lanciare i programmi i modi "osnap" ed "ortho" 
devono essere disattivati. 

Si vede gumdi come gli strumenti prodotti con guesto lavoro 
abbiano carattere "artigianale", essendo destinati ad utenti in 
possesso di repulsiti mimmi, guali l'accesso ad un computer in 
o^vado di eseguire la versione I 2 o 13 di AutoCAD, sotto 
Windows o DOS, ed almeno le conoscenze di base del software 
per la grafica. 

Una caratteristica comune a tutti i programmi AutoLISP 
realizzati è l'uso dei "cicli" per la creazione delle curve da una serie 
di vettori. Il numero dei vettori, che corrisponde al numero degli 
incrementi dell'angolo "A" per la ripetizione ciclica delle istruzioni, 
può essere variato a piacere, onde ottenere la "precisione" voluta 
della curva. 

Per guel che riguarda l'affidabilità di ogni singolo programma, 
guesta risulta garantita da guanto segue: 

o Sono stati sempre eseguiti test di "sovrapposizione" delle 
curve ottenute da ciascun programma con le stesse curve 
ottenute usando AutoCAD ed i metodi di costruzione grafica 
tradizionali. 

o Ciascun programma è stato poi utilizzato, almeno una volta, in 
casi reali con risultato favorevole. 
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Resta comunque la possibilità di verificare la correttezza dei 
singoli programmi attraverso una attenta analisi delle costruzioni 
grafiche, delle espressioni analitiche che ne derivano e dei listati 
AutoLISP contenuti in ciascun articolo della presente pubblicazione. 
Si compie così un esercizio che risulta altresì utile per chi voglia 
ripassare o approfondire gli argomenti. 


NOTA 


I programmi dal n.5 al n. I G risolvono una intera “famiglia” di 
intersezioni fra cilindri il cui caso più generale è trattato ai n. Ile 
I 2. Infatti, tutte le altre situazioni si ottengono da gueste ultime 
azzerando opportunamente alcuni parametri. 
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FROGRAM5 


1 

CON CENTRI C REDUCER 

2 

EXCENTRIC REDUCER 

3 

ELBCW - INNER SEGMENT 

4 

ELBCW - LAST SEGMENT 

5 

STRAI GHT INTERSECTION BETWEEN CVLINDERS 

NOZZLE 

G 

STRAIGHT INTERSECTION BETWEEN CVLINDERS 

OFENING 

7 

STRAIGHT AND EXCENTRJC INTERSECTION 

BETWEEN CVLINDERS 

NOZZLE 

& 

STRAIGHT AND EXCENTRIC INTERSECTION 

BETWEEN CVLINDERS 

OFENING 

9 

OBLIQUE INTER5ECTION BETWEEM CVLINDER5 

NOZZLE 

IO 

OBLIQUE INTERSECTION BETWEEN CVLINDERS 

OFENING 

m 

OBLIQUE AND EX CENTRI C INTER5ECTION 

BETWEEN CVLINDERS 

NOZZLE 

m 

OBLIQUE AND EXCENTRIC INTERSECTION 

BETWEEN CVLINDERS 

OFENING 

1 3 

EQUALTEE 

NOZZLE 

14 

EQUALTEE 

OFENING 

1 5 

OBLIQUE EQUALTEE 

NOZZLE 

1 G 

OBLIQUE EQUALTEE 

OFENING 

1 7 

CYLINDER-SFHERE INTERSECTION 

NOZZLE 

1 & 

CVLINDER-TORUS INTERSECTION 

NOZZLE 

1 9 

CVLINDER-CONE STRAIGHT INTER5ECTION 

NOZZLE 

20 

CVLINDER-CONE STRAI GHT INTERSECTION 

OFENING 

2 1 

CVLINDER-CONE 5TRAIGHT AND 

EXCENTRIC INTER5ECTION 

NOZZLE 

22 

CVLINDER-CONE STRAI GHT AND 

EXCENTRIC INTERSECTION 

OFENING 

23 

CVLINDER-CONE FARALLEL INTERSECTION 

NOZZLE 

24 

CVLINDER-CONE RARALLEL INTERSECTION 

OFENING 


SQUARE- CIRC LE REDLJCER 
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PROGRAM: CONO.Isp 


(DEFUN C:CONO () 

(GRAPNSCR) 

(5ETQ RI (GETREAL "\nIMMETTERE RAGGIO RI : ") 
R2 (GETREAL "\nlMMETTERE RAGGIO R2: ") 

H (GETREAL "\nlMMETTERE ALTEZZA li: ") 

PO (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ PO (LI5T 0 0) 

L (- R2 RI) 

M (5QRT (+ (* L L) (EXPT PI 2))) 

RII (* (/ M L) RI ) 

R2 I (+ M RI I) 

A (* (/ R2 R2 I ) PI) 

) 

(5ETQ P I (POLAR PO (- (/ PI 2) A) RI I ) 

P2 (POLAR PO (- (/ PI 2) A) R2 I ) 

P3 (POLAR PO (+ (/ PI 2) A) R2 I ) 

P4 (POLAR PO (+ (/ PI 2) A) RI I ) 

) 

(COMMAND "LINE" PI P2 "" 

"ARC" "C" PO P2 P3 "" 

"LINE" P3 P4 "" 

"ARC" "C" PO P I P4 "" 

) 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTPUT 



GRAPHIC CON 5TRJUCTÌON 
AMD FORMULAI 



i 

R2 - RI 

w * 

V l* + h 1 

Rlt 8 

(M/L) s RI 

RZ1 = 

M + RII 

A » 

(R2/R21) x Tf 
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EXCENTOC REDUCER 


geaphic cowspycnoN 

AWD fOGMULAS 


re 




M = R2 n COSA 

L - R2 x sinÀ 

HI - f?2 x H/{R2-Rì) 

D = (?2 i A 

VD = V(N-E) ! + L 1 

v2 - /vo'T m’ 

P = (C+V1+V2)/* 



S = 1/ <P-C)x(P-Vl)x(P-tf2)/P 
T - S/(P-C) 

B2 - 2 x aloni 
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PROGRAM: COBB.Isp 


(DEFUN C:COBB () 

(GRAPHSCR) 

(5ETQ RI (GETREAL "\n IMMETTE RE RAGGIO RI : ") 

R2 (GETREAL "\nIMMETTERE RAGGIO R2: ") 

EC (GETREAL "\nIMMETTERE ECCENTRICITÀ EC: ") 

H (GETREAL "\nIMMETTERE ALTEZZA H: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ HI (/ (* R2 H) (- R2 RI ))) 

(5ETQ E (* EC (/ H I H))) 

(5ETQ N (- R2 E)) 

(5ETQ V I (5QRT (+ (* N N) (EXPT H I 2)))) 

(5ETQ P I (LIST V I 0)) 

(SETQ PO (LIST 0 0)) 

(SETQ B I 0) 

(SETQ A (/ PI 90)) 

(SETQ C (* R2 A)) 

(REPEAT 90 

(SETQ M (* R2 (COS A)) 

L (* R2 (SIN A)) 

VO (SQRT (+ (* L L) (EXPT (- M E) 2))) 

V2 (SQRT (+ (* VO VO) (EXPT H I 2))) 

P (/(+(+ C VI) V2) 2) 

DI (-PC) 

D2 (- P V I ) 

D3 (- P V2) 

S (SQRT (/(*DI (* D2 D3)) P)) 

T (/ S D I ) 

B2 (+ (* (ATAN T) 2) B I ) 

P2 (POLAR PO B2 V2) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ V I V2) 

(SETQ B I B2) 

(SETQ A (+ A (/ PI 90))) 

) 

(COMMAND "COPY 1 "ALL.PO PO "") 

(SETQ K (/ (- H I H) H I )) 

(COMMAND "SCALE" "PREVIOUS.PO K "") 

(COMMAND "LINE" PI PO"") 

(COMMAND "MIRROR" "ALL.PO (LIST I 0) "") 

(COMMAND "TRIM" "ALL.PO PO "") 

(COMMAND "ROTATE" "ALL.PO 90 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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PROGRAM: SPICCHI.Isp 


(DEFUN CrSPICClil () 

(GRAPPISCR) 

(5ETQ AG (GETREAL "\nlMMETTERE ANGOLO AG: ") 
R (GETREAL "\nlMMETTERE RAGGIO R: ") 

RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

PI (GETREAL "\nlMMETTERE 1/2 ALTEZZA PI: ") 
PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ P I (LIST 0 0)) 

(SETQ A (/ PI 90)) 

(REPEAT ISO 

(SETQ L(-R(*R (COS A))) 

M (/ L (COS (* (/ PI I 60) AG))) 

Y (SQRT (- (* M M) (EXPT L 2))) 

K (/ RN R) 

X (* (* K R) A) P2 (LIST X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(SETQ P3 (LIST (CAR P2) (- 0 PI))) 

(SETQ P4 (LIST 0 (- 0 H))) 

(SETQ P5 (LIST 0 0)) 

(COMMAND "LINE" P2 P3 "") 

(COMMAND "LINE" P4 P5 "") 

(COMMAND "MIRROR" "ALL" "" P3 P4 "") 

(COMMAND "ZOOM" "ALL.) 

(COMMAND "UCS" "P") 

(PRINC) 
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OUTPUT 


GRÀFHI C CGhlSTRJUCTlON 
Am FOftMULAS 



L - R - R x cosA 
M = L/cosAG 
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PROGRAM: MSPICCHI.Isp 


(DEFUN C:M5PICCHI () 

(GRAPNSCR) 

(5ETQ AG (GETREAL "\nlMMETTERE ANGOLO AG: ") 
R (GETREAL "\nlMMETTERE RAGGIO R: ") 

RN (GETREAL "ViIMMETTERE RAGGIO RN: ") 

PI (GETREAL "\nlMMETTERE ALTEZZA PI: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ P I (LI5T 0 0)) 

(5ETQ A (/ PI 90)) 

(REPEAT 160 

(5ETQ L (- R (* R (005 A))) 

M (/ L (005 (* (/ PI I 60) AG))) 

Y (5QRT (- (* M M) (EXPT L 2))) 

K (/ RN R) 

X (* (* K R) A) P2 (LI5T X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(5ETQ P I P2) 

(5ETQ A (+ A (/ PI 90))) 

) 

(5ETQ P3 (LI5T (CAR P2) (- 0 PI))) 

(5ETQ P4 (LI5T 0 (- 0 PI))) 

(5ETQ P5 (LI5T 0 0)) 

(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTPUT 



GfiftPH!C CONSTRuCTION 
AND TORMUIAS 



L — R - R X COSA 
M - L/CO&AG 

r - 
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PROGRAM: BOCCH.Isp 


(DEFUN C:BOCCH () 

(GRAPPISCR) 

(5ETQ RI (GETREAL "\nIMMETTERE RAGGIO RI : ") 
R2 (GETREAL "\nlMMETTERE RAGGIO R2: ") 
RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

H (GETREAL "\nlMMETTERE ALTEZZA PI: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ P I (LI5T 0 0)) 

(5ETQ A (/ PI 90)) 

(REPEAT 160 
(5ETQ LI (* RI (51N A)) 

PI I (5QRT (- (* R2 R2) (EXPT L I 2))) 
Y (- R2 H I ) 

R(/ RN RI) 

X (* (* K RI ) A) P2 (LI5T X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(5ETQ P I P2) 

(5ETQ A (+ A (/ PI 90))) 

) 

(5ETQ P3 (LI5T (CAR P2) (- 0 PI))) 

(5ETQ P4 (LI5T 0 (- 0 PI))) 

(5ETQ P5 (LI5T 0 0)) 

(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM 11 "ALL.) 

(COMMAND "UCS" "P") 

(PRINC) 
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OUTPUT 


GRAPH1C COMSTKUOTfOtJ 
AMD FORMULA» 




LI = Ri x sinA 

HI - '/R?' - LI 7 

X - RI » A 

Y - R2 - HI 
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PROGRAM: BOCH.Isp 


(DEFUN C:BOCH () 

(GRAPHSCR) 

(5ETQ RI (GETREAL "\nIMMETTERE RAGGIO RI : ") 
R2 (GETREAL "\nlMMETTERE RAGGIO R2: ") 
RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ P I (LI5T 0 0)) 

(5ETQ A (/ PI 90)) 

(REPEAT 160 
(5ETQ LI (* RI (51N A)) 

H I (5QRT (- (* R2 R2) (EXPT L I 2))) 
B (ATAN (/LI HI)) 

Y (* RI (- I (C05 A))) 

K (/ RN R2) 

X (* (* K R2) B) P2 (LI5T X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(5ETQ P I P2) 

(5ETQ A (+ A (/ PI 90))) 

) 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTPUT 



GfcùfHlC CONSTfcUCTlON 
AHDfORMUlAS 



LI = 

HI = 

B ■ 

X - 


Ri x sinA 
VR2 1 - LI 1 
otan L1/H1 
R2 x B 


Y = RI - (RI x COSA) 
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PROGRAM: BOCC.Isp 


(DEFUN C:BOCC () 

(GRAPNSCR) 

(5ETQ RI (GETREAL "\nlMMETTERE RAGGIO RI : ") 
R2 (GETREAL "\n IMMETTE RE RAGGIO R2: ") 

RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

E (GETREAL "\nlMMETTERE ECCENTRICITÀ E; ") 
H (GETREAL "\nlMMETTERE ALTEZZA li: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ P I (LIST 0 0)) 

(SETQ A (/ PI 90)) 

(REPEAT ISO 

(SETQ LI (+ (* RI (SIN A)) E) 

HO (SQRT (- (* R2 R2) (EXPT E 2))) 

H I (SQRT (- (* R2 R2) (EXPT LI 2))) 

Y (- NO h I ) 

R (/ RN RI ) 

X (* (* K RI ) A) P2 (LIST X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(SETQ P3 (LIST (CAR P2) (- 0 h))) 

(SETQ P4 (LIST 0 (- 0 h))) 

(SETQ P5 (LIST 0 (CADR P2))) 
(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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PROGRAM: BOC.Isp 


(DEFUN C;BOC () 

(GRAPHSCR) 

(5ETQ RI (GETREAL "\n IMMETTERE RAGGIO RI:") 

R2 (GETREAL "\nlMMETTERE RAGGIO R2: ") 

RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

E (GETREAL "\nlMMETTERE ECCENTRICITÀ E: ") 

PI (GETPOINT "\nlMMETTERE PUNTO INIZIALE : ") 

) 


(5ETQ P I (LIST 0 0)) 

(SETQ A (/ PI 90)) 

(REPEAT ISO 
(SETQ L (* RI (SIN A)) 

LI (+ E L) 

HO (SQRT (- (* R2 R2) (EXPT E 2))) 
h (SQRT (- (• R2 R2) (EXPT LI 2))) 
B I (ATAN (/ L I h)) 

BO (ATAN (/ E NO)) 

B (- B I BO) 

L2 (* RI (COS A)) 

Y (- RI L2) 

IR (/ RN R2) 

X (* (* R R2) B) P2 (LIST X Y) 


) 

(COMMAND "LINE" PI P2 "") 
(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTPUT 



GRAFHIC CONSTRU CTION 
kMD FORMULÀ5 


L 

Li 

HO 

H 

Bl 

BO 

B 

X 


R \ k sirtA 

E + L 
/ R2* — E* 

/R2^ 


LI 

otcm Ll/H 
otan E/HO 
Bl - BO 
R2 x B 



L2 =» Ri x cosA 
Y - RI - L2 
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PROGRAM: BOCCI.Isp 


(DEPUN C.-BOCCI () 

(GRAPHSCR) 

(5ETQ AG (GETREAL "\nIMMETTERE ANGOLO AG: ") 

RI (GETREAL "\nlMMETTERE RAGGIO RI : ") 

RN (GETREAL ViiMMETTERE RAGGIO RN: ") 

R2 (GETREAL "\nlMMETTERE RAGGIO R2 : ") 

H (GETREAL "\nlMMETTERE ALTEZZA H: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ P I (LIST 0 0)) 

(SETQ A (/ PI 90)) 

(REPEAT ISO 

(SETQ L(-RI ORI (COS A))) 

YI r L (/ (SIN r (/ PI I SO) AG)) (COS r (/ PI l <S0) aG)))) 
LI ORI (SIN A)) 

H I (SQRT (- (* R2 R2) (EXPT LI 2))) 

H2 (- R2 H I) 

Y2 (/ H2 (COS (* (/ PI I <S0) AG))) 

Y (+ YI Y2) 

R (/ RN R I ) 

X (* (* R RI) A) P2 (LIST X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(SETQ P3 (LIST (CAR P2) (- 0 H))) 

(SETQ P4 (LIST 0 (- 0 H))) 

(SETQ P5 (LIST 0 0)) 

(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM" "ALL.) 

(COMMAND "UCS" "P") 

(PRINC) 
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GRÀPH ìC CON5TftIJCTOd 
AND TORWUtAS- 


= Ri x A 



L 

- 

RI - RI x cosA 

Y1 


L x lanÀÉ 

LI 

= 

RI k sinA 

HI 

= 

VR2* - Li* 

H2 

= 

R2 - HI 

Y2 

» 

H2/co3AG 

Y 

- 

Y1 +■ Y2 
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PROGRAM: BOCI.Isp 


(DEFUN C:BOCI () 

(GRAPHSCR) 

(5ETQ RI (GETREAL "\nIMMETTERE RAGGIO RI : ") 

R2 (GETREAL "\nlMMETTERE RAGGIO R2: ") 

RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

AG (GETREAL "\nlMMETTERE ANGOLO AG: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ P I (LIST 0 0)) 

(5ETQ A (/ PI 90)) 

(REPEAT 160 
(5ETQ L(*RI (51N A)) 

PI I (5QRT (- (* R2 R2) (EXPT L 2))) 

B (ATAN (/ L H I )) 

PI 2 (- R2 PI I ) 

LI r RI (- I (C05 A))) 

YI (/LI (C05 (* (/ PI I 60) AG))) 

Y2 (* li 2 (/ (51N (• (/ PI I 60) AG)) (C05 (* (/ PI I 60) AG)))) 
Y (- YI Y2) 

R (/ RN R2) 

X (* (* K R2) D) P2 (LI5T X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(5ETQ P I P2) 

(5ETQ A (+ A (/ PI 90))) 

) 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTFUT 



G&AFHlC CON5TRJLJCTIQN. 
AND FOKMUUS 



L ■ 

RI x 

s’tnA 

LI » 

RI 

- (RI x cosA) 

HI = 

'/rÌP~ 

“TT7 

H2 « 

R2 

- HI 

B - 

oton 

L/H1 

Y2 - 

H2 

x tao AG 

X = 

R2 x 

B 

VI « 

LI /cosAG 




Y = 

Y1 

- Y2 
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PROGRAM: BOCC2.lsp 


(DEPUN C.-BOCC2 () 

(GRAPHSCR) 

(5ETQ AG (GETREAL "\nIMMETTERE ANGOLO AG: ") 

RI (GETREAL ViiMMETTERE RAGGIO RI : ") 

RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

R2 (GETREAL "\nlMMETTERE RAGGIO R2: ") 

E (GETREAL "\nlMMETTERE ECCENTRICITÀ E: ") 

H (GETREAL "\nlMMETTERE ALTEZZA H: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ P I (LIST 0 0)) 

(SETQ A (/ PI 90)) 

(REPEAT ISO 

(SETQ L(-RI ORI (COS A))) 

YI r L (/ (SIN r (/ PI I SO) AG)) (COS (* (/ PI I SO) AG)))) 
HO (SQRT (- (* R2 R2) (EXPT E 2))) 

LI (TETRI (SIN A))) 

H I (SQRT (- (* R2 R2) (* L I LI ))) 

H2 (- HO H I) 

Y2 (/ H2 (COS (* (/ PI I SO) AG))) 

Y (+ Yl Y2) 

R (/ RN RI ) 

X (* (* R RI ) A) P2 (LIST X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(SETQ P3 (LIST (CAR P2) (- 0 H))) 

(SETQ P4 (LIST 0 (- 0 H))) 

(SETQ P5 (LIST 0 (CADR P2))) 

(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTPUT 


ÉF&FHIC COM^TRUCnOW 
AMD FORMULA5 



L 

- 

RI — RI X CO! 

ri 


L x tonAG 

HO 

= 

VR2" - £' 

LI 

» 

E 4* RI x sinA 

HI 

- 

V R2 a - LI 3 

H2 

= 

HO - HI 

Y2 

SS 

H2/ cosAG 

Y 

= 

Y1 + Y2 


28 































PROGRAM: BOC2.lsp 


(DEPUN C.-BOC2 () 

(GRAPHSCR) 

(5ETQ RI (GETREAL "\nIMMETTERE RAGGIO RI : ") 

R2 (GETREAL 'ViiMMETTERE RAGGIO R2: ") 

RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

AG (GETREAL "\nlMMETTERE ANGOLO AG: ") 

E (GETREAL "\nlMMETTERE ECCENTRICITÀ E: ") 

PI (GETPOINT '^IMMETTERE PUNTO INIZIALE : ") 

) 


(5ETQ P I (LI5T 0 0)) 

(5ETQ A (/ PI 90)) 

(REPEAT 150 
(5ETQ LORI (51N A)) 

LI (+ E L) 

HO (5QRT (- (* R2 R2) (EXPT E 2))) 

H (5QRT (- (* R2 R2) (EXPT L I 2))) 

5 I (ATAN (/ LI H)) 

50 (ATAN (/ E HO)) 

5 (- 5 I 50) 

YO (/ RI (C05 (* (/ PI I 50) AG))) 

HI (-HO H) 

L2 (* H I (/ (51N (* (/ PI I 50) AG)) (C05 (* 
L3 (* (/ RI (C05 (* (/ PI I 50) AG))) (C05 
Y (- YO (+ L2 L3)) 

K (/ RN R2) 

X r r R R2) 5) P2 (LIST X Y) 


(/PI 150) AG)))) 
A)) 


) 

(COMMAND "LINE" PI P2 "") 
(5ETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTPUT 



GRAFHIC CONSTRUCTTiOH 
AMD POftMDLA 5 



L 

£2 

RI x sìnA 

YO = 

RI/cosaC 

LI 

m 

E + L 

HI = 

HO - H 

HO 

ss 

VR2 a - E* 

L2 = 

HI x tanAG 

H 

- 

VR2 1 - LI 1 

L3 = 

Ri x COSA/COSAG 

B1 

= 

aton L1/H 

Y - 

YO - (12+L3) 

BO 

- 

atan E/HO 



B 

E 

B1 - BO 



X 

M 

R2 x B 
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PROGRAM: TEE.Isp 


(DEFUN C:TEE () 

(GRAPNSCR) 

(5ETQ R (GETREAL "\nlMMETTERE RAGGIO R: ") 
RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 
H (GETREAL "\nlMMETTERE ALTEZZA H: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ P I (LI5T 0 0)) 

(5ETQ A (/ PI 90)) 

(REPEAT 160 
(5ETQ L (* R (51N A)) 

Y (- R (5QRT (- (* R R) (EXPT L 2)))) 
K (/ RN R) 

X (* (* K R) A) P2 (LI5T X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(5ETQ P I P2) 

(5ETQ A (+ A (/ PI 90))) 

) 

(5ETQ P3 (LI5T (CAR P2) (- 0 El))) 
(5ETQ P4 (LI5T 0 (- 0 H))) 

(5ETQ P5 (LI5T 0 0)) 

(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTfUT 


ÉfcAPmC COMSTRLJCTICW 
ÈND FORMULAI 




X = R x À I L ■ R x sinÀ 

I Y - R - V R*- L s 
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PROGRAM: TEEl.lsp 


(DEFUN C:TEEI () 

(GRAPPISCR) 

(5ETQ R (GETREAL "\nlMMETTERE RAGGIO R: ") 

RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ P I (LI5T 0 0)) 

(5ETQ A (/ PI 90)) 

(REPEAT 160 
(5ETQ L (* R (51N A)) 

5 (5QRT (- (* (* R R) I .0000000 I ) (EXPT L 2))) 
B (ATAN (/ L 5)) 

Y (* R (- I (C05 A))) 

R (/ RN R) 

X (* (* K R) B) P2 (LI5T X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(5ETQ P I P2) 

(5ETQ A (+ A (/ PI 90))) 

) 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTPUT 


GPAFHIC CONSTPUCTIOW 
MiD rC&MULAÒ 




L = 
S = 
8 

X 


R x sìnA 
; sfR^-iJ 
- otqn L/S 
= R x B 


Y = R - (R x COSA) 
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PROGRAM: TEE2.lsp 


(DEFUN C;TEE2 () 

(GRAPPISCR) 

(5ETQ AG (GETREAL "\nlMMETTERE ANGOLO AG: ") 

R (GETREAL "\nlMMETTERE RAGGIO R: ") 

RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

H (GETREAL "\nlMMETTERE ALTEZZA li: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(SETQ P I (LIST 0 0)) 

(5ETQ A (/ PI 90)) 

(REPEAT ISO 

(5ETQ L (- R (* R (C05 A))) 

YI (* L (/ (SIN (* (/ PI I 60) AG)) (COS (* (/ PI I 60) AG)))) 

LI (* R (SIN A)) 

Y2 (/ (- R (5QRT (- (* R R) (EXPT LI 2)))) (COS (* (/ PI I 60) AG))) 
Y (+ YI Y2) 

K (/ RN R) 

X (* (* K R) A) P2 (LIST X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(SETQ P3 (LIST (CAR P2) (- 0 h))) 

(SETQ P4 (LIST 0 (- 0 H))) 

(SETQ P5 (LIST 0 0)) 

(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM" "ALL.) 

(FRI NC) 
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GRAPHIC COMSTRUCFIOW 
AMD rORJvlULAS 


R x A 




L 

= 

R - R x cosA 

Y1 

- 

L x tonAG 

LI 

= 

R x sirtA 

HI 

= 

VR 3 - LI 3 

H2 

« 

R - HI 

Y2 

= 

H2/cosA6 

Y 

— 

Y1 + Y2 
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PROGRAM: TEE3.lsp 


(DEFUN C:TEE3 () 

(GRAPPISCR) 

(5ETQ R (GETREAL "\nlMMETTERE RAGGIO R: ") 

RN (GETREAL "ViIMMETTERE RAGGIO RN: ") 

AG (GETREAL "ViIMMETTERE ANGOLO AG: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ P I (LI5T 0 0)) 

(5ETQ A (/ PI 90)) 

(REPEAT 160 
(5ETQ L (* R (51N A)) 

PI I (5QRT (- (* (* R R) I .0000000 I ) (EXPT L 2))) 

B (ATAN (/ L H I )) 

H2 (- R H I) 

LI (* R (- I (C05 A))) 

YI (/LI (C05 r (/ PI 160) AG))) 

Y2 (* PI2 (/ (SIN (* (/ PI I 60) AG)) (COS (* (/ PI I 60) AG)))) 
Y (- YI Y2) 

R (/ RN R) 

X r (* K R) B) P2 (LI5T X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(5ETQ P I P2) 

(5ETQ A (+ A (/ PI 90))) 

) 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTFUT 


GRAFH IO CON&TRUCnOH 
&WD FORMULAI 



L - 

R x £ir*À 

LI - 

R - 

(R x cosA) 

HI * 

Vr j - l j 

H2 = 

R - 

HI 

B = 

oton L/Ht 

¥2 = 

H2 x 

tonAG 

X = 

R x 0 

Y) = 

Li/cosAG 



Y = 

Y1 - 

Y2 
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PROGRAM: CILSF.Isp 


(DEPUN CrCILSE () 

(GRAPHSCR) 

(5ETQ RI (GETREAL "\nIMMETTERE RAGGIO RI : ") 

RN (GETREAL ViiMMETTERE RAGGIO RN: ") 

R2 (GETREAL "\nlMMETTERE RAGGIO R2: ") 

E (GETREAL "\nlMMETTERE ECCENTRICITÀ E: ") 

H (GETREAL "\nlMMETTERE ALTEZZA H: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ HO (- H (5QRT (- (* R2 R2) (EXPT (+ E RI ) 2))))) 
(5ETQ P I (LIST 0 HO)) 

(SETQ A (/ PI 90)) 

(REPEAT ISO 
(SETQ JORI (SIN A)) 

LORI (COS A)) 

R (SQRT (+ (EXPT (+ E L) 2) (EXPT J 2))) 

YO (SQRT (- (* R2 R2) (EXPT R 2))) 

Y (- H YO) 

RI (/ RN RI ) 

X(* (* RI RI) A) P2 (LIST X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(SETQ P3 (LIST (CAR P2) 0)) 

(SETQ P4 (LIST 0 0)) 

(SETQ P5 (LIST 0 (CADR P2))) 

(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTPUT 


6PAFHIC CQW5TRJUCIÌON 
AND FORMULA» 



J * RI x sin A 
L = Ri x cosA 

K = J (E + L) 1 + 7 
YO = /R2 S - K* 

Y = H - YO 
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PROGRAM: CILTO.Isp 


(DEEUN C:CILTO () 

(GRAPHSCR) 

(SETQ RC (GETREAL "\nlMMETTERE RAGGIO RC: ") 

RI (GETREAL "\nIMMETTERE RAGGIO RI : M ) 

RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

R2 (GETREAL "\nlMMETTERE RAGGIO R2: ") 
h (GETREAL "\nlMMETTERE ALTEZZA H: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(SETQ HO (- H (SQRT (- (* (+ RC R2) (+ RC R2)) (EXPT (+ RC RI ) 2))))) 
(5ETQ P I (LIST 0 HO)) 

(SETQ A (/ PI 90)) 

(REPEAT 160 
(SETQ JORI (SIN A)) 

L (* RI (COS A)) 

K (+ RC (SQRT (- (* R2 R2) (EXPT J 2)))) 

YO (SQRT (- (* K K) (EXPT (+ RC L) 2))) 

Y (- H YO) 

K (/ RN RI ) 

X r r K RI) A) P2 (LIST X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(SETQ P3 (LIST (CAR P2) 0)) 

(SETQ P4 (LIST 0 0)) 

(SETQ P5 (LIST 0 (CADR P2))) 

(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 


41 


























OUTPUT 


GPAPHIC CGN&TRUCT1CW 
AMD rO^MULAS 



J = RI * sinA 

K = RC + /R2 1 - J a 

L = RI x cosA 

Yt) = >/k' - (RC + L ) 3 

X = RI x A 

Y = N - YO 


42 























CVLINDCR- CONE STRAI GMT INTEPSECTION 
N02ZLE 







PROGRAM: CILCO.Isp 


(DEFUN C:CILCO 0 
(GRAFM5CR.) 

(5ETQ R (GETREAL "\n IMMETTE RE RAGGIO R: ") 

RO (GETREAL "\nlMMETTERE RAGGIO RO: ") 

RN (GETREAL ViiMMETTERE RAGGIO RN: ") 

B (GETREAL "\nlMMETTERE ANGOLO B: ") 

H (GETREAL "\nlMMETTERE ALTEZZA H: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ HO (- H (5QRT (- (* RO RO) (EXPT R 2))))) 

(5ETQ P I (LIST 0 HO)) 

(SETQ A (/ PI 90)) 

(REPEAT ISO 

(SETQ RI (+ RO (* (* R (SIN A)) (/ (SIN (* (/ PI I SO) B)) (COS (* (/ PI I SO) B))))) 
L (* R (COS A)) 

YO (SQRT (-ORI RI) (EXPT L 2))) 

Y (- H YO) 

R (/ RN R) 

X (* (* R R) A) P2 (LIST X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(SETQ P3 (LIST (CAR P2) 0)) 

(SETQ P4 (LIST 0 0)) 

(SETQ P5 (LIST 0 (CADR P2))) 

(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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C CCW5f^UCriOW 
AW FORMULA 5 



44 
































PROGRAM: CICON.Isp 


(DEEUN CrCICON () 

(GRAPHSCR) 

(5ETQ R (GETREAL "\nlMMETTERE RAGGIO R: ") 

RO (GETREAL "\nlMMETTERE RAGGIO RO: ") 

B (GETREAL "\nlMMETTERE ANGOLO B: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ PO (LIST 0 0)) 

(SETQ A 0) 

(SETQ L (* R (COS A))) 

(SETQ RI (+ RO (* (* R (SIN A)) (/ (SIN (* (/ PI I SO) B)) (COS (* (/ PI I SO) B)))))) 
(SETQ VI (/RI (SIN (* (/ PI I SO) B)))) 

(SETQ H (SQRT (-ORI RI ) (EXPT L 2)))) 

(SETQ Q (ATAN (/ L H))) 

(SETQ Ql (/(* Q RI) VI)) 

(SETQ P I (POLAR PO Q I VI)) 

(SETQ A (/ PI 90)) 

(REPEAT ISO 
(SETQ L (* R (COS A)) 

RI (+ RO (* (* R (SIN A)) (/ (SIN (* (/ PI I SO) B)) (COS (* (/ PI I SO) B))))) 
VI (/RI (SIN (* (/ PI ISO) B))) 

H (SQRT (-(*RI RI) (EXPT L 2))) 

Q (ATAN (/ L H)) 

Q I (/ 0 Q RI ) V I ) 

P2 (POLAR PO Q I VI) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(COMMAND "ROTATE" "ALL.PO 90 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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PROGRAM: CILCOE.Isp 


(DEFUN C:CILCOE () 

(GRAPH5CR) 

(5ETQ R (GETREAL "\nlMMETTERE RAGGIO R: ") 

RO (GETREAL "\nlMMETTERE RAGGIO RO: ") 

RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

B (GETREAL "\nlMMETTERE ANGOLO B: ") 

E (GETREAL "\nlMMETTERE ECCENTRICITÀ E: ") 

H (GETREAL "\nlMMETTERE ALTEZZA H: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ HO (- H (5QRT (- (* RO RO) (EXPT (+ E R) 2))))) 

(5ETQ P I (LI5T 0 HO)) 

(5ETQ A (/ PI 90)) 

(REPEAT 160 

(5ETQ RI (+ RO (* (* R (SIN A)) (/ (SIN (* (/ PI I 60) B)) (C05 (* (/ PI I 60) E»))))) 
L (+ E (* R (C05 A))) 

YO (5QRT (-ORI RI) (EXPT L 2))) 

Y (- H YO) 

IR (/ RN R) 

X (* (* IR R) A) P2 (LIST X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(SETQ P3 (LIST (CAR P2) 0)) 

(SETQ P4 (LIST 0 0)) 

(SETQ P5 (LIST 0 (CADR P2))) 

(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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QUTFUT 
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PROGRAM: CICONE.Isp 


(DEEUN CrCICONE () 

(GRAPHSCR) 

(5ETQ R (GETREAL "\nlMMETTERE RAGGIO R: ") 

RO (GETREAL "\nlMMETTERE RAGGIO RO: ") 

B (GETREAL "\nlMMETTERE ANGOLO B: ") 

E (GETREAL "\nlMMETTERE ECCENTRICITÀ E: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ PO (LIST 0 0)) 

(SETQ A 0) 

(SETQ L (+ E (* R (COS A)))) 

(SETQ RI (+ RO (* (* R (SIN A)) (/ (SIN (* (/ PI I SO) B)) (COS (* (/ PI I SO) B)))))) 
(SETQ VI (/RI (SIN 0 (/ PI I SO) B)))) 

(SETQ H (SQRT (- (* RI RI ) (EXPT L 2)))) 

(SETQ Q (ATAN (/ L H))) 

(SETQ Ql (/(* Q RI) VI)) 

(SETQ P I (POLAR PO Q I VI)) 

(SETQ A (/ PI 90)) 

(REPEAT ISO 

(SETQ L (+ E (* R (COS A))) 

RI (+ RO (* (* R (SIN A)) (/ (SIN (* (/ PI I SO) B)) (COS (* (/ PI I SO) B))))) 
VI (/RI (SIN (* (/ PI ISO) B))) 

H (SQRT (-(*RI RI) (EXPT L 2))) 

Q (ATAN (/ L H)) 

Q I (/ 0 Q RI ) V I ) 

P2 (POLAR PO Q I VI) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ A (+ A (/ PI 90))) 

) 

(COMMAND "ROTATE" "ALL.PO 90 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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PROGRAM: CILCOP.Isp 


(DEFUN C.-CILCOP () 

(GRAPHSCR) 

(5ETQ RI (GETREAL "\n IMMETTE RE RAGGIO RI : ") 
RN (GETREAL "\nlMMETTERE RAGGIO RN: ") 

R2 (GETREAL "\nIMMETTERE RAGGIO R2: ") 

E (GETREAL "\nlMMETTERE ECCENTRICITÀ 1 E: ") 
tiC (GETREAL "\nlMMETTERE ALTEZZA tiC: ") 

HB (GETREAL "\nIMMETTERE ALTEZZA HB: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ LO (- R2 (+ ERI))) 

(5ETQ li (/ (* NC LO) R2)) 

(5ETQ HO (- HB H)) 

(5ETQ P I (LI5T 0 HO)) 

(5ETQ A (/ PI 90)) 

(REPEAT I <90 
(5ETQ JORI (51N A)) 

L (+ E (* RI (C05 A))) 

R (5QRT (+ (EXPT L 2) (EXPT J 2))) 

LI (/ (* L R2) R) 

L2 (- LI L) 

YO (/ (* HC L2) LI) 

Y (- HB YO) 

RI (/ RN RI ) 

X (* (* RI RI ) A) P2 (LI5T X Y) 

) 

(COMMAND "LINE" PI P2 "") 

(5ETQ P I P2) 

(5ETQ A (+ A (/ PI 90))) 

) 

(5ETQ P3 (LI5T (CAR P2) 0)) 

(5ETQ P4 (LI5T 0 0)) 

(5ETQ P5 (LIST 0 (CADR P2))) 
(COMMAND "LINE" P2 P3 P4 P5 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTPUT 


GRÀPHIC COK13TRJUCTIOW 
AWD rcmAuiAò 



J = Rt x $ìnA 
L = E + RI x cosA 

k = /UTTF 

LI = L x R2/K 
L2 - LI - L 
YO = HC x L2/L1 
Y = HB - YO 
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PROGRAM: CICONX.Isp 


(DEPUN C.-CICONX () 

(GRAPHSCR) 

(5ETQ R (GETREAL "\nlMMETTERE RAGGIO R: ") 

RO (GETREAL "\nlMMETTERE RAGGIO RO: ") 

B (GETREAL "\nlMMETTERE ANGOLO B: ") 

PI (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(5ETQ PO (LI5T 0 0)) 

(5ETQ A 0) 

(5ETQ L (* R (51N A))) 

(5ETQ H (* R (C05 A))) 

(5ETQ RI (5QRT (+ (* L L) (EXPT (+ RO H) 2)))) 
(5ETQ VI (/RI (SIN (* (/ PI I 50) B)))) 

(5ETQ Q (ATAN (/ L (+ RO H)))) 

(5ETQ Q I (/ (* Q RI ) V I )) 

(5ETQ P I (POLAR PO Q I VI)) 

(5ETQ A (/ PI 90)) 

(REPEAT 150 
(5ETQ L (* R (SIN A)) 

H (* R (C05 A)) 

RI (5QRT (+ (* L L) (EXPT (+ RO H) 2))) 
VI (/RI (5IN (* (/ PI 150) B))) 

Q (ATAN (/ L (+ RO H))) 

Q I (/ (* Q RI ) V I ) 

P2 (POLAR PO Q I VI) 

) 

(COMMAND "LINE" PI P2 "") 

(5ETQ P I P2) 

(5ETQ A (+ A (/ PI 90))) 

) 

(COMMAND "ROTATE" "ALL.PO 90 "") 

(COMMAND "ZOOM" "ALL.) 

(PRINC) 
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OUTPUT 


GRAPHIC COW5TRJUCTIOW 
AUP FORMULA5 
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PROGRAM: RACQTS.Isp 


(DEEUN C.-RACQTS () 

(GRAPHSCR) 

(SETQ R (GETREAL "\nlMMETTERE RAGGIO R: ") 

L (GETREAL "\n IMMETTERE SEMI LATO L: ") 

M (GETREAL M \nlMMETTERE SEMI LATO M: ") 
h (GETREAL M \nlMMETTERE ALTEZZA H: ") 

P (GETPOINT "\nPUNTO INIZIALE: ") 

) 

(SETQ P (LIST 0 0)) 

(SETQ PO (LIST L 0)) 

(SETQ LI (- M R)) 

(SETQ HO (SQRT (+ (* H H) (EXPT LI 2)))) 

(SETQ P I (LIST L HO)) 

(COMMAND "LINE" P PO "") 

(COMMAND "LINE" PO PI "") 

(SETQ B I (ATAN (/ HO L))) 

(SETQ V I (SQRT (+ f L L) (EXPT HO 2)))) 

(SETQ A (/ PI I 60)) 

(SETQ C (* R A)) 

(REPEAT 90 

(SETQ L2 (- L (* R (SIN A))) 

L3 (- M (* R (COS A))) 

V2 (SQRT (+ (+ (* L2 L2) (EXPT L3 2)) (EXPT H 2))) 
P (/(+(+ C VI) V2) 2) 

DI (-PC) 

D2 (- P VI) 

D3 (- P V2) 

S (SQRT (/ODI (* D2 D3)) P)) 

T (/ S D I ) 

D2 (+ (* (ATAN T) 2) B I ) 

P2 (POLAR (LIST 0 0) B2 V2) 

) 

(COMMAND "LINE" PI P2 "") 

(SETQ P I P2) 

(SETQ V I V2) 

(SETQ B I B2) 

(SETQ A (+ A (/ PI I 60))) 

) 

(SETQ H I (SQRT (+ (* L2 L2) (EXPT H 2))) 

B2 (+ (ATAN (/HI M)) B I ) 

P2 (POLAR (LIST 0 0) B2 M) 

) 

(COMMAND "LINE" PI P2 "") 
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(COMMAND "LINE" F2 (LIST 0 0) "") 

(COMMAND "ZOOM" "ALL.) 

(FRI NC) 



GRAFHlC C0M5TRUCTI0W 
kUD FORMULAI 




LI =. U - R 
HO = Vh*+ LI* 

Si » clan HO/L 
VI m + HO' 

0 » R x A 

L2 s L - R x sinA 
L3 = M - R x coeA 
V2 = V L2 j + L3'+ H* 

P - (C+V1+V2)/2 

S - *(P-cR“P-V1 )*(P-V2)/P 
T = S/(P-C> 

WZ = 2 x atanT + B1 


(*) Triangolo rettangolo finale dello sviluppo,, avente cateti M ed 
HI - 'fìì 1 4- 12 1 
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